* lisp/ibuffer.el (ibuffer-compile-format): Use string-width instead of length

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 8d7ec59462d35fb847c9fb5f27a0ac9cc13d231a..8c6417978581e86fe45fd7990dac7b3a28d05de5 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1638,7 +1638,7 @@ If point is on a group name, this function operates on that group."
                                            max
                                          'max)
                                        from-end-p))
-                               (setq strlen (length str))
+                               (setq strlen (string-width str))
                                (setq str
                                      ,(ibuffer-compile-make-eliding-form
                                         'str elide from-end-p)))))
@@ -1696,7 +1696,7 @@ If point is on a group name, this function operates on that group."
                      outforms)
                     (push `(setq str ,callform
                                   ,@(when strlen-used
-                                      `(strlen (length str))))
+                                      `(strlen (string-width str))))
                           outforms)
                     (setq outforms
                           (append outforms